home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Business Assistant
/
Business Assistant.iso
/
acctg
/
db3plsar
/
addnames.prg
< prev
next >
Wrap
Text File
|
1986-08-04
|
2KB
|
82 lines
SET HEADING OFF
SET SAFETY OFF
***************(ADDNAMES.PRG)
CLEAR
SET BELL OFF
SET TALK OFF
SET CONFIRM ON
SET EXACT ON
DO WHILE .T.
USE CUST INDEX ACCT
@ 2,0 CLEAR
STORE ' ' TO MACCT
STORE " " TO MNAME
@ 20,22 SAY 'Do you want to enter an account? '
?
?
STORE ' ' TO OPTION
WAIT ' ? ' TO OPTION
IF OPTION<>'Y'
RETURN
ENDIF
IF OPTION='Y'
@ 2,0 CLEAR
@ 6,25 SAY 'Enter account number ' GET MACCT PICTURE 'XXXX'
READ
FIND &MACCT
STORE NAME TO MNAME
IF .NOT. (EOF() .OR. BOF())
@ 2,0 CLEAR
@ 6,10 SAY "#&MACCT is already in use as &MNAME"
@ 20,25 SAY 'Are you trying to confuse me? '
@ 23,37 SAY '?'
STORE 1 TO XX
DO WHILE XX<70
STORE XX+1 TO XX
ENDDO WHILE XX<70
SKIP
LOOP
ENDIF #<>0
@ 2,0 CLEAR
APPEND BLANK
ENDIF
@ 3,1 SAY 'Account number &MACCT'
@ 4,1 SAY 'Salesman ' GET SALES
@ 4,20 SAY ' H = House, A = #1.., B = #2...'
@ 6,1 SAY 'Attention of (Leave blank if accts. payable' GET ATTN
@ 8,1 SAY 'Customer name ' GET NAME
@ 10,1 SAY 'Address ' GET ADDRESS
@ 12,1 SAY 'City ' GET CITY
@ 12,27 SAY 'State ' GET STATE
@ 12,40 SAY 'Zip ' GET ZIP
@ 14,1 SAY 'Phone ' GET PHONE
@ 16,1 SAY 'Unapplied credits? ' GET UCREDIT
@ 18,1 SAY 'Discount? ' GET DISC
@ 20,1 SAY 'Credit limit (Blank if 500.00' GET CRLMT
@ 20,45 SAY 'Terms (Blank if Net 30)' GET TERMS
READ
REPLACE ACCT WITH '&MACCT'
IF CRLMT=0.00
REPLACE CRLMT WITH 500.00
ENDIF
IF ATTN=' '
REPLACE ATTN WITH 'Accts.Payable Dept'
ENDIF
IF SALES=' '
REPL SALES WITH 'H'
ENDIF
IF TERMS=' '
REPLACE TERMS WITH 'Net 30'
ENDIF
@ 22,1 SAY 'Is this correct? '
WAIT ' ' TO OPTION
IF OPTION<>'Y'
EDIT
ENDIF
@ 2,0 CLEAR
ENDIF
ENDDO
SET BELL ON
SET EXACT OFF
RETURN (WHILE OPTION = 'N')